home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 November (Bonus) / GAMESTAR11B.ISO / ENCYC99 / MM / T621387A.DCR / Scripts_12_Class Layer.ls < prev    next >
Encoding:
Text File  |  1998-06-29  |  1.9 KB  |  64 lines
  1. property myName, internalCursorGod, labelsButton, downPicts, upPicts, Slider, blendSlidThing, layerTitle, cursorGod, infoBox, LabelGod, infoBoxEvent
  2.  
  3. on areYouThere me, xLoc
  4.   return areYouThere(internalCursorGod, xLoc)
  5. end
  6.  
  7. on mouseEvent me, xEvent, xLoc
  8.   if xEvent = #mouseDown then
  9.     hideLabels(LabelGod)
  10.     showInfo(infoBox, infoBoxEvent)
  11.   end if
  12. end
  13.  
  14. on crankUp me
  15.   setPicts(labelsButton, downPicts)
  16.   crankUp(blendSlidThing)
  17.   showInfo(infoBox, infoBoxEvent)
  18. end
  19.  
  20. on crankDown me
  21.   setPicts(labelsButton, upPicts)
  22.   crankDown(blendSlidThing)
  23. end
  24.  
  25. on beNormal me
  26.   setPicts(labelsButton, upPicts)
  27. end
  28.  
  29. on toString me
  30.   return myName
  31. end
  32.  
  33. on new me, xList
  34.   set myName to getProp(xList, #layerName)
  35.   set layerTitle to new(script "Class LayerTitle", getProp(xList, #titleSprite))
  36.   set labelsButton to new(script "Class PictButton", getProp(xList, #buttonSprite))
  37.   set upPicts to [member "labelsOn", member "labelsUp", member "labelsDown", member "labelsDown"]
  38.   set downPicts to [member "labelsDown", member "labelsDown", member "labelsDown", member "labelsDown"]
  39.   setPicts(labelsButton, upPicts)
  40.   set Slider to new(script "Class HorizontalSlider", the rect of sprite getProp(xList, #sliderSprite), getProp(xList, #grabberSprite))
  41.   set blendSlidThing to new(script "Class BlendSlidThing", getProp(xList, #blendedSprite))
  42.   setMaxSlide(blendSlidThing, 12)
  43.   linkUp(blendSlidThing, Slider)
  44.   linkUp(Slider, blendSlidThing)
  45.   set internalCursorGod to new(script "Class CursorGod")
  46.   subscribe(labelsButton, internalCursorGod)
  47.   subscribe(Slider, internalCursorGod)
  48.   subscribe(layerTitle, internalCursorGod)
  49.   return me
  50. end
  51.  
  52. on linkUp me, xLabelGod, xInfoBox
  53.   set LabelGod to xLabelGod
  54.   addThing(LabelGod, me)
  55.   linkUp(labelsButton, LabelGod, me)
  56.   set infoBox to xInfoBox
  57.   set infoBoxEvent to addThing(infoBox, myName)
  58. end
  59.  
  60. on subscribe me, xCursorGod
  61.   set cursorGod to xCursorGod
  62.   subscribe(cursorGod, me)
  63. end
  64.